home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok02 / m2code / m2codedemo2 / asssort.asm next >
Encoding:
Assembly Source File  |  1993-11-04  |  786 b   |  32 lines
  1. ;----------------------------------------------------------------------------
  2. ;                                                                           !
  3. ;    Feld of CARDINALs aufsteigend sortieren.                               !
  4. ;                                                                           !
  5. ;    Addresse: A0  Größe: D0         PC-relativ assemblieren !!!            !
  6. ;----------------------------------------------------------------------------
  7.  
  8. start:
  9.   clr.l   d1
  10. loop1:
  11.   move.l  d1,d2
  12.   move.l  a0,a1
  13. loop2:
  14.   addq.l  #1,d2
  15.   addq.l  #2,a1
  16.   move    (a1),d3
  17.   cmp     (a0),d3
  18.   bhs.s   higher
  19.   move    (a0),d4
  20.   move    d3,(a0)
  21.   move    d4,(a1)
  22. higher:
  23.   cmp.l   d0,d2
  24.   blo     loop2
  25.   addq.l  #1,d1
  26.   addq.l  #2,a0
  27.   cmp.l   d0,d1
  28.   blo     loop1
  29.  
  30.   end
  31.  
  32.